Fixup last commit part 2

diff --git a/which-key.el b/which-key.el
index c4cf96b5f97f87e2babce7c8947de585962c9fd4..810601120295fac5d2b9bbdcaa15cddad7ecad30 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -814,7 +814,7 @@ replacements are added to
     ;; normalize key sequences before adding
     (let ((key-seq (key-description (kbd key-sequence)))
           (replace (or (and (functionp replacement) replacement)
-                       (cdr-safe replacement)
+                       (car-safe replacement)
                        replacement)))
       (push (cons (cons (concat "\\`" (regexp-quote key-seq) "\\'") nil)
                   (if (functionp replace) replace (cons nil replace)))
@@ -843,7 +843,7 @@ addition KEY-SEQUENCE REPLACEMENT pairs) to apply."
     ;; normalize key sequences before adding
       (let ((key-seq (key-description (kbd key-sequence)))
             (replace (or (and (functionp replacement) replacement)
-                         (cdr-safe replacement)
+                         (car-safe replacement)
                          replacement)))
         (push (cons (cons (concat "\\`" (regexp-quote key-seq) "\\'") nil)
                     (if (functionp replace) replace (cons nil replace)))